BBS in a Box 9

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 9 / AMUG BBS in a Box Volume IX (August 1993) (MacWizards).iso / Files / Prog / B-C / BenchMarks.cpt / Bench.p < prev next >
MacBinary | 1989-01-02 | 6.3 KB | [TEXT/PJMM]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Bench.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Jan 2 13:57:10 1989, modified Mon Jan 2 13:57:10 1989, creator Think Pascal, type ASCII, 5844 bytes "Bench.p" , at 0x1754 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[PJMM]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 42 65 6e 63 68 2e | 70 00 00 00 00 00 00 00 |..Bench.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 01 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 16 d4 00 | 00 01 7e 9f e5 76 86 9f |........|..~..v..|
|00000060| e5 76 86 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.v......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 65 4d 00 00 |........|....eM..|
|00000080| 70 72 6f 67 72 61 6d 20 | 62 65 6e 63 68 6d 61 72 |program |benchmar|
|00000090| 6b 73 3b 0d 0d 7b 24 49 | 46 43 20 55 4e 44 45 46 |ks;..{$I|FC UNDEF|
|000000a0| 49 4e 45 44 20 54 48 49 | 4e 4b 5f 50 41 53 43 41 |INED THI|NK_PASCA|
|000000b0| 4c 7d 0d 0d 7b 24 45 4c | 53 45 43 7d 0d 7b 24 49 |L}..{$EL|SEC}.{$I|
|000000c0| 2d 7d 0d 09 7b 20 54 75 | 72 6e 20 6f 66 66 20 74 |-}..{ Tu|rn off t|
|000000d0| 68 65 20 41 75 74 6f 2d | 49 6e 69 74 69 61 6c 69 |he Auto-|Initiali|
|000000e0| 7a 61 74 69 6f 6e 20 7d | 0d 7b 24 45 4e 44 43 7d |zation }|.{$ENDC}|
|000000f0| 0d 0d 09 75 73 65 73 0d | 09 7b 24 49 46 43 20 55 |...uses.|.{$IFC U|
|00000100| 4e 44 45 46 49 4e 45 44 | 20 54 48 49 4e 4b 5f 50 |NDEFINED| THINK_P|
|00000110| 41 53 43 41 4c 7d 0d 09 | 09 4d 65 6d 74 79 70 65 |ASCAL}..|.Memtype|
|00000120| 73 2c 20 51 75 69 63 6b | 44 72 61 77 2c 20 4f 53 |s, Quick|Draw, OS|
|00000130| 49 6e 74 66 2c 20 54 6f | 6f 6c 49 6e 74 66 2c 20 |Intf, To|olIntf, |
|00000140| 0d 09 7b 24 45 4e 44 43 | 7d 0d 09 09 53 69 65 76 |..{$ENDC|}...Siev|
|00000150| 65 2c 20 44 68 72 79 73 | 74 6f 6e 65 2c 20 57 68 |e, Dhrys|tone, Wh|
|00000160| 65 74 73 74 6f 6e 65 3b | 0d 0d 09 63 6f 6e 73 74 |etstone;|...const|
|00000170| 0d 09 09 44 69 73 61 62 | 6c 65 20 3d 20 32 35 34 |...Disab|le = 254|
|00000180| 3b 0d 0d 09 76 61 72 0d | 09 09 6d 79 77 69 6e 64 |;...var.|..mywind|
|00000190| 6f 77 3a 20 57 69 6e 64 | 6f 77 50 74 72 3b 0d 09 |ow: Wind|owPtr;..|
|000001a0| 09 74 68 65 52 65 63 74 | 2c 20 6f 75 74 52 65 63 |.theRect|, outRec|
|000001b0| 74 3a 20 52 65 63 74 3b | 0d 09 09 65 76 65 6e 74 |t: Rect;|...event|
|000001c0| 3a 20 45 76 65 6e 74 52 | 65 63 6f 72 64 3b 0d 09 |: EventR|ecord;..|
|000001d0| 09 53 69 65 76 65 5f 43 | 74 72 6c 2c 20 44 68 72 |.Sieve_C|trl, Dhr|
|000001e0| 79 5f 43 74 72 6c 2c 20 | 57 68 65 74 5f 43 74 72 |y_Ctrl, |Whet_Ctr|
|000001f0| 6c 2c 20 51 75 69 74 5f | 43 74 72 6c 3a 20 43 6f |l, Quit_|Ctrl: Co|
|00000200| 6e 74 72 6f 6c 48 61 6e | 64 6c 65 3b 0d 09 09 53 |ntrolHan|dle;...S|
|00000210| 43 74 72 6c 5f 52 65 63 | 74 2c 20 44 43 74 72 6c |Ctrl_Rec|t, DCtrl|
|00000220| 5f 52 65 63 74 2c 20 57 | 43 74 72 6c 5f 52 65 63 |_Rect, W|Ctrl_Rec|
|00000230| 74 2c 20 51 43 74 72 6c | 5f 52 65 63 74 3a 20 52 |t, QCtrl|_Rect: R|
|00000240| 65 63 74 3b 0d 09 09 64 | 75 72 61 74 69 6f 6e 3a |ect;...d|uration:|
|00000250| 20 4c 6f 6e 67 69 6e 74 | 3b 0d 09 09 64 6f 6e 65 | Longint|;...done|
|00000260| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 0d 09 70 72 6f |: intege|r;...pro|
|00000270| 63 65 64 75 72 65 20 53 | 65 74 55 70 57 69 6e 64 |cedure S|etUpWind|
|00000280| 6f 77 3b 0d 0d 09 62 65 | 67 69 6e 0d 09 09 53 65 |ow;...be|gin...Se|
|00000290| 74 52 65 63 74 28 74 68 | 65 52 65 63 74 2c 20 32 |tRect(th|eRect, 2|
|000002a0| 2c 20 34 34 2c 20 35 31 | 30 2c 20 33 33 32 29 3b |, 44, 51|0, 332);|
|000002b0| 09 09 7b 20 74 68 65 20 | 57 69 6e 64 6f 77 27 73 |..{ the |Window's|
|000002c0| 20 52 65 63 74 20 7d 0d | 09 09 53 65 74 52 65 63 | Rect }.|..SetRec|
|000002d0| 74 28 6f 75 74 52 65 63 | 74 2c 20 31 38 30 2c 20 |t(outRec|t, 180, |
|000002e0| 34 34 2c 20 34 38 30 2c | 20 32 34 30 29 3b 09 09 |44, 480,| 240);..|
|000002f0| 7b 20 74 68 65 20 4f 75 | 74 70 75 74 27 73 20 52 |{ the Ou|tput's R|
|00000300| 65 63 74 20 28 69 6e 20 | 74 68 65 20 57 69 6e 64 |ect (in |the Wind|
|00000310| 6f 77 27 73 20 4c 6f 63 | 61 6c 20 43 6f 6f 72 64 |ow's Loc|al Coord|
|00000320| 69 6e 61 74 65 73 29 20 | 7d 0d 09 09 53 65 74 52 |inates) |}...SetR|
|00000330| 65 63 74 28 53 43 74 72 | 6c 5f 52 65 63 74 2c 20 |ect(SCtr|l_Rect, |
|00000340| 35 30 2c 20 35 30 2c 20 | 31 35 30 2c 20 37 30 29 |50, 50, |150, 70)|
|00000350| 3b 09 09 7b 20 74 68 65 | 20 53 69 65 76 65 5f 43 |;..{ the| Sieve_C|
|00000360| 74 72 6c 27 73 20 52 65 | 63 74 20 7d 0d 09 09 53 |trl's Re|ct }...S|
|00000370| 65 74 52 65 63 74 28 44 | 43 74 72 6c 5f 52 65 63 |etRect(D|Ctrl_Rec|
|00000380| 74 2c 20 35 30 2c 20 39 | 30 2c 20 31 35 30 2c 20 |t, 50, 9|0, 150, |
|00000390| 31 31 30 29 3b 09 09 7b | 20 74 68 65 20 44 68 72 |110);..{| the Dhr|
|000003a0| 79 5f 43 74 72 6c 27 73 | 20 52 65 63 74 20 7d 0d |y_Ctrl's| Rect }.|
|000003b0| 09 09 53 65 74 52 65 63 | 74 28 57 43 74 72 6c 5f |..SetRec|t(WCtrl_|
|000003c0| 52 65 63 74 2c 20 35 30 | 2c 20 31 33 30 2c 20 31 |Rect, 50|, 130, 1|
|000003d0| 35 30 2c 20 31 35 30 29 | 3b 09 7b 20 74 68 65 20 |50, 150)|;.{ the |
|000003e0| 57 68 65 74 5f 43 74 72 | 6c 27 73 20 52 65 63 74 |Whet_Ctr|l's Rect|
|000003f0| 20 7d 0d 09 09 53 65 74 | 52 65 63 74 28 51 43 74 | }...Set|Rect(QCt|
|00000400| 72 6c 5f 52 65 63 74 2c | 20 35 30 2c 20 31 37 30 |rl_Rect,| 50, 170|
|00000410| 2c 20 31 35 30 2c 20 31 | 39 30 29 3b 09 09 7b 20 |, 150, 1|90);..{ |
|00000420| 74 68 65 20 51 75 69 74 | 5f 43 74 72 6c 27 73 20 |the Quit|_Ctrl's |
|00000430| 52 65 63 74 20 7d 0d 0d | 09 7b 24 49 46 43 20 55 |Rect }..|.{$IFC U|
|00000440| 4e 44 45 46 49 4e 45 44 | 20 54 48 49 4e 4b 5f 50 |NDEFINED| THINK_P|
|00000450| 41 53 43 41 4c 7d 0d 09 | 09 7b 6d 79 77 69 6e 64 |ASCAL}..|.{mywind|
|00000460| 6f 77 20 3a 3d 20 4e 65 | 77 57 69 6e 64 6f 77 28 |ow := Ne|wWindow(|
|00000470| 6e 69 6c 2c 20 74 68 65 | 52 65 63 74 2c 20 27 54 |nil, the|Rect, 'T|
|00000480| 4d 4c 20 50 61 73 63 61 | 6c 20 49 49 20 42 65 6e |ML Pasca|l II Ben|
|00000490| 63 68 6d 61 72 6b 73 27 | 2c 20 54 52 55 45 2c 20 |chmarks'|, TRUE, |
|000004a0| 72 44 6f 63 50 72 6f 63 | 2c 20 50 6f 69 6e 74 65 |rDocProc|, Pointe|
|000004b0| 72 28 2d 31 29 2c 20 46 | 41 4c 53 45 2c 20 6c 6f |r(-1), F|ALSE, lo|
|000004c0| 6e 67 69 6e 74 28 30 29 | 29 3b 7d 0d 09 09 54 65 |ngint(0)|);}...Te|
|000004d0| 78 74 42 6f 6f 6b 28 40 | 74 68 65 50 6f 72 74 29 |xtBook(@|thePort)|
|000004e0| 3b 0d 09 09 6d 79 77 69 | 6e 64 6f 77 20 3a 3d 20 |;...mywi|ndow := |
|000004f0| 57 69 6e 64 6f 77 50 74 | 72 28 74 68 65 50 6f 72 |WindowPt|r(thePor|
|00000500| 74 29 3b 0d 09 7b 24 45 | 4c 53 45 43 7d 0d 09 09 |t);..{$E|LSEC}...|
|00000510| 6d 79 77 69 6e 64 6f 77 | 20 3a 3d 20 4e 65 77 57 |mywindow| := NewW|
|00000520| 69 6e 64 6f 77 28 6e 69 | 6c 2c 20 74 68 65 52 65 |indow(ni|l, theRe|
|00000530| 63 74 2c 20 27 54 48 49 | 4e 4b 20 50 61 73 63 61 |ct, 'THI|NK Pasca|
|00000540| 6c 20 42 65 6e 63 68 6d | 61 72 6b 73 27 2c 20 54 |l Benchm|arks', T|
|00000550| 52 55 45 2c 20 72 44 6f | 63 50 72 6f 63 2c 20 50 |RUE, rDo|cProc, P|
|00000560| 6f 69 6e 74 65 72 28 2d | 31 29 2c 20 46 41 4c 53 |ointer(-|1), FALS|
|00000570| 45 2c 20 6c 6f 6e 67 69 | 6e 74 28 30 29 29 3b 0d |E, longi|nt(0));.|
|00000580| 09 7b 24 45 4e 44 43 7d | 0d 09 09 53 69 65 76 65 |.{$ENDC}|...Sieve|
|00000590| 5f 43 74 72 6c 20 3a 3d | 20 4e 65 77 43 6f 6e 74 |_Ctrl :=| NewCont|
|000005a0| 72 6f 6c 28 6d 79 77 69 | 6e 64 6f 77 2c 20 53 43 |rol(mywi|ndow, SC|
|000005b0| 74 72 6c 5f 52 65 63 74 | 2c 20 27 53 69 65 76 65 |trl_Rect|, 'Sieve|
|000005c0| 27 2c 20 54 52 55 45 2c | 20 30 2c 20 30 2c 20 31 |', TRUE,| 0, 0, 1|
|000005d0| 2c 20 30 2c 20 4c 6f 6e | 67 49 6e 74 28 30 29 29 |, 0, Lon|gInt(0))|
|000005e0| 3b 0d 09 09 44 68 72 79 | 5f 43 74 72 6c 20 3a 3d |;...Dhry|_Ctrl :=|
|000005f0| 20 4e 65 77 43 6f 6e 74 | 72 6f 6c 28 6d 79 77 69 | NewCont|rol(mywi|
|00000600| 6e 64 6f 77 2c 20 44 43 | 74 72 6c 5f 52 65 63 74 |ndow, DC|trl_Rect|
|00000610| 2c 20 27 44 68 72 79 73 | 74 6f 6e 65 27 2c 20 54 |, 'Dhrys|tone', T|
|00000620| 52 55 45 2c 20 30 2c 20 | 30 2c 20 31 2c 20 30 2c |RUE, 0, |0, 1, 0,|
|00000630| 20 4c 6f 6e 67 49 6e 74 | 28 30 29 29 3b 0d 09 09 | LongInt|(0));...|
|00000640| 57 68 65 74 5f 43 74 72 | 6c 20 3a 3d 20 4e 65 77 |Whet_Ctr|l := New|
|00000650| 43 6f 6e 74 72 6f 6c 28 | 6d 79 77 69 6e 64 6f 77 |Control(|mywindow|
|00000660| 2c 20 57 43 74 72 6c 5f | 52 65 63 74 2c 20 27 57 |, WCtrl_|Rect, 'W|
|00000670| 68 65 74 73 74 6f 6e 65 | 27 2c 20 54 52 55 45 2c |hetstone|', TRUE,|
|00000680| 20 30 2c 20 30 2c 20 31 | 2c 20 30 2c 20 4c 6f 6e | 0, 0, 1|, 0, Lon|
|00000690| 67 49 6e 74 28 30 29 29 | 3b 0d 09 09 51 75 69 74 |gInt(0))|;...Quit|
|000006a0| 5f 43 74 72 6c 20 3a 3d | 20 4e 65 77 43 6f 6e 74 |_Ctrl :=| NewCont|
|000006b0| 72 6f 6c 28 6d 79 77 69 | 6e 64 6f 77 2c 20 51 43 |rol(mywi|ndow, QC|
|000006c0| 74 72 6c 5f 52 65 63 74 | 2c 20 27 51 75 69 74 27 |trl_Rect|, 'Quit'|
|000006d0| 2c 20 54 52 55 45 2c 20 | 30 2c 20 30 2c 20 31 2c |, TRUE, |0, 0, 1,|
|000006e0| 20 30 2c 20 4c 6f 6e 67 | 49 6e 74 28 30 29 29 3b | 0, Long|Int(0));|
|000006f0| 0d 0d 09 09 53 65 74 50 | 6f 72 74 28 6d 79 77 69 |....SetP|ort(mywi|
|00000700| 6e 64 6f 77 29 3b 0d 09 | 09 46 72 61 6d 65 52 65 |ndow);..|.FrameRe|
|00000710| 63 74 28 6f 75 74 52 65 | 63 74 29 3b 0d 09 09 54 |ct(outRe|ct);...T|
|00000720| 65 78 74 53 69 7a 65 28 | 31 30 29 3b 0d 09 65 6e |extSize(|10);..en|
|00000730| 64 3b 09 7b 20 65 6e 64 | 20 53 65 74 55 70 57 69 |d;.{ end| SetUpWi|
|00000740| 6e 64 6f 77 20 7d 0d 0d | 09 66 75 6e 63 74 69 6f |ndow }..|.functio|
|00000750| 6e 20 48 61 6e 64 6c 65 | 4d 6f 75 73 65 44 6f 77 |n Handle|MouseDow|
|00000760| 6e 3a 20 69 6e 74 65 67 | 65 72 3b 0d 0d 09 09 76 |n: integ|er;....v|
|00000770| 61 72 0d 09 09 09 6d 6f | 75 73 65 77 69 6e 64 6f |ar....mo|usewindo|
|00000780| 77 3a 20 57 69 6e 64 6f | 77 50 74 72 3b 0d 09 09 |w: Windo|wPtr;...|
|00000790| 09 74 68 65 63 6f 6e 74 | 72 6f 6c 3a 20 43 6f 6e |.thecont|rol: Con|
|000007a0| 74 72 6f 6c 48 61 6e 64 | 6c 65 3b 0d 09 09 09 77 |trolHand|le;....w|
|000007b0| 63 6f 64 65 2c 20 63 63 | 6f 64 65 2c 20 74 72 61 |code, cc|ode, tra|
|000007c0| 63 6b 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |ck: inte|ger;....|
|000007d0| 74 68 65 70 6f 69 6e 74 | 3a 20 50 6f 69 6e 74 3b |thepoint|: Point;|
|000007e0| 0d 09 09 09 6f 6c 64 52 | 65 63 74 3a 20 52 65 63 |....oldR|ect: Rec|
|000007f0| 74 3b 0d 09 09 09 54 65 | 6d 70 53 74 72 3a 20 53 |t;....Te|mpStr: S|
|00000800| 74 72 32 35 35 3b 0d 09 | 09 09 77 68 65 74 73 3a |tr255;..|..whets:|
|00000810| 20 72 65 61 6c 3b 0d 0d | 09 62 65 67 69 6e 0d 09 | real;..|.begin..|
|00000820| 09 48 61 6e 64 6c 65 4d | 6f 75 73 65 44 6f 77 6e |.HandleM|ouseDown|
|00000830| 20 3a 3d 20 30 3b 0d 09 | 09 74 68 65 70 6f 69 6e | := 0;..|.thepoin|
|00000840| 74 20 3a 3d 20 65 76 65 | 6e 74 2e 77 68 65 72 65 |t := eve|nt.where|
|00000850| 3b 0d 09 09 47 6c 6f 62 | 61 6c 74 6f 4c 6f 63 61 |;...Glob|altoLoca|
|00000860| 6c 28 74 68 65 50 6f 69 | 6e 74 29 3b 0d 09 09 77 |l(thePoi|nt);...w|
|00000870| 63 6f 64 65 20 3a 3d 20 | 46 69 6e 64 57 69 6e 64 |code := |FindWind|
|00000880| 6f 77 28 65 76 65 6e 74 | 2e 77 68 65 72 65 2c 20 |ow(event|.where, |
|00000890| 6d 6f 75 73 65 77 69 6e | 64 6f 77 29 3b 0d 09 09 |mousewin|dow);...|
|000008a0| 69 66 20 28 6d 6f 75 73 | 65 77 69 6e 64 6f 77 20 |if (mous|ewindow |
|000008b0| 3d 20 6d 79 77 69 6e 64 | 6f 77 29 20 74 68 65 6e |= mywind|ow) then|
|000008c0| 0d 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 63 63 |....begi|n.....cc|
|000008d0| 6f 64 65 20 3a 3d 20 46 | 69 6e 64 43 6f 6e 74 72 |ode := F|indContr|
|000008e0| 6f 6c 28 74 68 65 50 6f | 69 6e 74 2c 20 6d 79 77 |ol(thePo|int, myw|
|000008f0| 69 6e 64 6f 77 2c 20 74 | 68 65 63 6f 6e 74 72 6f |indow, t|hecontro|
|00000900| 6c 29 3b 0d 09 09 09 09 | 69 66 20 28 63 63 6f 64 |l);.....|if (ccod|
|00000910| 65 20 3d 20 69 6e 42 75 | 74 74 6f 6e 29 20 74 68 |e = inBu|tton) th|
|00000920| 65 6e 0d 09 09 09 09 09 | 62 65 67 69 6e 0d 09 09 |en......|begin...|
|00000930| 09 09 09 09 74 72 61 63 | 6b 20 3a 3d 20 54 72 61 |....trac|k := Tra|
|00000940| 63 6b 43 6f 6e 74 72 6f | 6c 28 74 68 65 63 6f 6e |ckContro|l(thecon|
|00000950| 74 72 6f 6c 2c 20 74 68 | 65 50 6f 69 6e 74 2c 20 |trol, th|ePoint, |
|00000960| 50 6f 69 6e 74 65 72 28 | 2d 31 29 29 3b 0d 09 09 |Pointer(|-1));...|
|00000970| 09 09 09 09 69 66 20 28 | 74 72 61 63 6b 20 3d 20 |....if (|track = |
|00000980| 63 63 6f 64 65 29 20 74 | 68 65 6e 0d 09 09 09 09 |ccode) t|hen.....|
|00000990| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 09 |...begin|........|
|000009a0| 09 6f 6c 64 52 65 63 74 | 20 3a 3d 20 6d 79 77 69 |.oldRect| := mywi|
|000009b0| 6e 64 6f 77 5e 2e 70 6f | 72 74 52 65 63 74 3b 0d |ndow^.po|rtRect;.|
|000009c0| 09 09 09 09 09 09 09 09 | 46 72 61 6d 65 52 65 63 |........|FrameRec|
|000009d0| 74 28 6f 75 74 52 65 63 | 74 29 3b 0d 09 09 09 09 |t(outRec|t);.....|
|000009e0| 09 09 09 09 49 6e 73 65 | 74 52 65 63 74 28 6f 75 |....Inse|tRect(ou|
|000009f0| 74 52 65 63 74 2c 20 33 | 2c 20 33 29 3b 0d 09 09 |tRect, 3|, 3);...|
|00000a00| 09 09 09 09 09 09 45 72 | 61 73 65 52 65 63 74 28 |......Er|aseRect(|
|00000a10| 6f 75 74 52 65 63 74 29 | 3b 0d 09 09 09 09 09 09 |outRect)|;.......|
|00000a20| 09 09 47 65 74 43 54 69 | 74 6c 65 28 74 68 65 63 |..GetCTi|tle(thec|
|00000a30| 6f 6e 74 72 6f 6c 2c 20 | 54 65 6d 70 53 74 72 29 |ontrol, |TempStr)|
|00000a40| 3b 0d 09 09 09 09 09 09 | 09 09 53 65 74 43 54 69 |;.......|..SetCTi|
|00000a50| 74 6c 65 28 74 68 65 63 | 6f 6e 74 72 6f 6c 2c 20 |tle(thec|ontrol, |
|00000a60| 27 57 6f 72 6b 69 6e 67 | 2e 2e 2e 27 29 3b 0d 09 |'Working|...');..|
|00000a70| 09 09 09 09 09 09 09 4d | 6f 76 65 54 6f 28 6f 75 |.......M|oveTo(ou|
|00000a80| 74 52 65 63 74 2e 6c 65 | 66 74 20 2b 20 33 2c 20 |tRect.le|ft + 3, |
|00000a90| 6f 75 74 52 65 63 74 2e | 74 6f 70 20 2b 20 31 33 |outRect.|top + 13|
|00000aa0| 29 3b 0d 09 09 09 09 09 | 09 09 09 69 66 20 28 74 |);......|...if (t|
|00000ab0| 68 65 63 6f 6e 74 72 6f | 6c 20 3d 20 53 69 65 76 |hecontro|l = Siev|
|00000ac0| 65 5f 43 74 72 6c 29 20 | 74 68 65 6e 0d 09 09 09 |e_Ctrl) |then....|
|00000ad0| 09 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00000ae0| 09 09 09 09 09 09 48 69 | 6c 69 74 65 43 6f 6e 74 |......Hi|liteCont|
|00000af0| 72 6f 6c 28 44 68 72 79 | 5f 43 74 72 6c 2c 20 44 |rol(Dhry|_Ctrl, D|
|00000b00| 69 73 61 62 6c 65 29 3b | 0d 09 09 09 09 09 09 09 |isable);|........|
|00000b10| 09 09 09 48 69 6c 69 74 | 65 43 6f 6e 74 72 6f 6c |...Hilit|eControl|
|00000b20| 28 57 68 65 74 5f 43 74 | 72 6c 2c 20 44 69 73 61 |(Whet_Ct|rl, Disa|
|00000b30| 62 6c 65 29 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |ble);...|........|
|00000b40| 48 69 6c 69 74 65 43 6f | 6e 74 72 6f 6c 28 51 75 |HiliteCo|ntrol(Qu|
|00000b50| 69 74 5f 43 74 72 6c 2c | 20 44 69 73 61 62 6c 65 |it_Ctrl,| Disable|
|00000b60| 29 3b 0d 09 09 09 09 09 | 09 09 09 09 09 64 75 72 |);......|.....dur|
|00000b70| 61 74 69 6f 6e 20 3a 3d | 20 64 6f 53 69 65 76 65 |ation :=| doSieve|
|00000b80| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 44 72 61 77 |;.......|....Draw|
|00000b90| 53 74 72 69 6e 67 28 27 | 53 69 65 76 65 20 42 65 |String('|Sieve Be|
|00000ba0| 6e 63 68 6d 61 72 6b 27 | 29 3b 0d 09 09 09 09 09 |nchmark'|);......|
|00000bb0| 09 09 09 09 09 4d 6f 76 | 65 54 6f 28 6f 75 74 52 |.....Mov|eTo(outR|
|00000bc0| 65 63 74 2e 6c 65 66 74 | 20 2b 20 33 2c 20 6f 75 |ect.left| + 3, ou|
|00000bd0| 74 52 65 63 74 2e 74 6f | 70 20 2b 20 33 33 29 3b |tRect.to|p + 33);|
|00000be0| 0d 09 09 09 09 09 09 09 | 09 09 09 44 72 61 77 53 |........|...DrawS|
|00000bf0| 74 72 69 6e 67 28 27 65 | 6c 61 70 73 65 64 54 69 |tring('e|lapsedTi|
|00000c00| 6d 65 20 3d 20 27 29 3b | 0d 09 09 09 09 09 7b 24 |me = ');|......{$|
|00000c10| 49 46 43 20 55 4e 44 45 | 46 49 4e 45 44 20 54 48 |IFC UNDE|FINED TH|
|00000c20| 49 4e 4b 5f 50 41 53 43 | 41 4c 7d 0d 09 09 09 09 |INK_PASC|AL}.....|
|00000c30| 09 09 09 09 09 09 77 72 | 69 74 65 28 64 75 72 61 |......wr|ite(dura|
|00000c40| 74 69 6f 6e 20 2f 20 36 | 30 2e 30 20 3a 20 31 30 |tion / 6|0.0 : 10|
|00000c50| 20 3a 20 35 29 3b 0d 09 | 09 09 09 09 7b 24 45 4c | : 5);..|....{$EL|
|00000c60| 53 45 43 7d 0d 09 09 09 | 09 09 09 09 09 09 09 57 |SEC}....|.......W|
|00000c70| 72 69 74 65 44 72 61 77 | 28 64 75 72 61 74 69 6f |riteDraw|(duratio|
|00000c80| 6e 20 2f 20 36 30 2e 30 | 20 3a 20 31 30 20 3a 20 |n / 60.0| : 10 : |
|00000c90| 35 29 3b 0d 09 09 09 09 | 09 7b 24 45 4e 44 43 7d |5);.....|.{$ENDC}|
|00000ca0| 0d 09 09 09 09 09 09 09 | 09 09 09 44 72 61 77 53 |........|...DrawS|
|00000cb0| 74 72 69 6e 67 28 27 20 | 73 65 63 6f 6e 64 73 2e |tring(' |seconds.|
|00000cc0| 20 27 29 3b 0d 09 09 09 | 09 09 09 09 09 09 09 48 | ');....|.......H|
|00000cd0| 69 6c 69 74 65 43 6f 6e | 74 72 6f 6c 28 44 68 72 |iliteCon|trol(Dhr|
|00000ce0| 79 5f 43 74 72 6c 2c 20 | 30 29 3b 0d 09 09 09 09 |y_Ctrl, |0);.....|
|00000cf0| 09 09 09 09 09 09 48 69 | 6c 69 74 65 43 6f 6e 74 |......Hi|liteCont|
|00000d00| 72 6f 6c 28 57 68 65 74 | 5f 43 74 72 6c 2c 20 30 |rol(Whet|_Ctrl, 0|
|00000d10| 29 3b 0d 09 09 09 09 09 | 09 09 09 09 09 48 69 6c |);......|.....Hil|
|00000d20| 69 74 65 43 6f 6e 74 72 | 6f 6c 28 51 75 69 74 5f |iteContr|ol(Quit_|
|00000d30| 43 74 72 6c 2c 20 30 29 | 3b 0d 09 09 09 09 09 09 |Ctrl, 0)|;.......|
|00000d40| 09 09 09 09 53 79 73 42 | 65 65 70 28 31 29 3b 0d |....SysB|eep(1);.|
|00000d50| 09 09 09 09 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |........|.end;...|
|00000d60| 09 09 09 09 09 09 69 66 | 20 28 74 68 65 63 6f 6e |......if| (thecon|
|00000d70| 74 72 6f 6c 20 3d 20 44 | 68 72 79 5f 43 74 72 6c |trol = D|hry_Ctrl|
|00000d80| 29 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 09 09 |) then..|........|
|00000d90| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 09 09 09 09 |begin...|........|
|00000da0| 48 69 6c 69 74 65 43 6f | 6e 74 72 6f 6c 28 53 69 |HiliteCo|ntrol(Si|
|00000db0| 65 76 65 5f 43 74 72 6c | 2c 20 44 69 73 61 62 6c |eve_Ctrl|, Disabl|
|00000dc0| 65 29 3b 0d 09 09 09 09 | 09 09 09 09 09 09 48 69 |e);.....|......Hi|
|00000dd0| 6c 69 74 65 43 6f 6e 74 | 72 6f 6c 28 57 68 65 74 |liteCont|rol(Whet|
|00000de0| 5f 43 74 72 6c 2c 20 44 | 69 73 61 62 6c 65 29 3b |_Ctrl, D|isable);|
|00000df0| 0d 09 09 09 09 09 09 09 | 09 09 09 48 69 6c 69 74 |........|...Hilit|
|00000e00| 65 43 6f 6e 74 72 6f 6c | 28 51 75 69 74 5f 43 74 |eControl|(Quit_Ct|
|00000e10| 72 6c 2c 20 44 69 73 61 | 62 6c 65 29 3b 0d 09 09 |rl, Disa|ble);...|
|00000e20| 09 09 09 09 09 09 09 09 | 64 6f 44 68 72 79 73 74 |........|doDhryst|
|00000e30| 6f 6e 65 3b 0d 09 09 09 | 09 09 09 09 09 09 09 44 |one;....|.......D|
|00000e40| 72 61 77 53 74 72 69 6e | 67 28 27 44 68 72 79 73 |rawStrin|g('Dhrys|
|00000e50| 74 6f 6e 65 20 42 65 6e | 63 68 6d 61 72 6b 27 29 |tone Ben|chmark')|
|00000e60| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 4d 6f 76 65 |;.......|....Move|
|00000e70| 54 6f 28 6f 75 74 52 65 | 63 74 2e 6c 65 66 74 20 |To(outRe|ct.left |
|00000e80| 2b 20 33 2c 20 6f 75 74 | 52 65 63 74 2e 74 6f 70 |+ 3, out|Rect.top|
|00000e90| 20 2b 20 33 33 29 3b 0d | 09 09 09 09 09 7b 24 49 | + 33);.|.....{$I|
|00000ea0| 46 43 20 55 4e 44 45 46 | 49 4e 45 44 20 54 48 49 |FC UNDEF|INED THI|
|00000eb0| 4e 4b 5f 50 41 53 43 41 | 4c 7d 0d 09 09 09 09 09 |NK_PASCA|L}......|
|00000ec0| 7b 24 45 4c 53 45 43 7d | 0d 09 09 09 09 09 09 09 |{$ELSEC}|........|
|00000ed0| 09 09 09 57 72 69 74 65 | 44 72 61 77 28 27 4e 75 |...Write|Draw('Nu|
|00000ee0| 6d 62 65 72 20 6f 66 20 | 45 78 65 63 75 74 69 6f |mber of |Executio|
|00000ef0| 6e 73 3a 20 27 2c 20 4e | 4f 45 29 3b 0d 09 09 09 |ns: ', N|OE);....|
|00000f00| 09 09 09 09 09 09 09 4d | 6f 76 65 54 6f 28 6f 75 |.......M|oveTo(ou|
|00000f10| 74 52 65 63 74 2e 6c 65 | 66 74 20 2b 20 33 2c 20 |tRect.le|ft + 3, |
|00000f20| 6f 75 74 52 65 63 74 2e | 74 6f 70 20 2b 20 35 33 |outRect.|top + 53|
|00000f30| 29 3b 0d 09 09 09 09 09 | 09 09 09 09 09 57 72 69 |);......|.....Wri|
|00000f40| 74 65 44 72 61 77 28 27 | 4e 75 6d 62 65 72 20 6f |teDraw('|Number o|
|00000f50| 66 20 4d 65 61 73 75 72 | 65 6d 65 6e 74 73 3a 20 |f Measur|ements: |
|00000f60| 27 2c 20 4e 4f 4d 29 3b | 0d 09 09 09 09 09 09 09 |', NOM);|........|
|00000f70| 09 09 09 4d 6f 76 65 54 | 6f 28 6f 75 74 52 65 63 |...MoveT|o(outRec|
|00000f80| 74 2e 6c 65 66 74 20 2b | 20 33 2c 20 6f 75 74 52 |t.left +| 3, outR|
|00000f90| 65 63 74 2e 74 6f 70 20 | 2b 20 36 33 29 3b 0d 09 |ect.top |+ 63);..|
|00000fa0| 09 09 09 09 09 09 09 09 | 09 44 72 61 77 53 74 72 |........|.DrawStr|
|00000fb0| 69 6e 67 28 27 54 69 6d | 65 73 20 61 72 65 20 43 |ing('Tim|es are C|
|00000fc0| 50 55 20 75 73 65 72 20 | 74 69 6d 65 20 70 65 72 |PU user |time per|
|00000fd0| 20 65 78 65 63 75 74 69 | 6f 6e 2c 20 69 6e 20 6d | executi|on, in m|
|00000fe0| 69 63 72 6f 73 65 63 6f | 6e 64 73 20 27 29 3b 0d |icroseco|nds ');.|
|00000ff0| 09 09 09 09 09 09 09 09 | 09 09 4d 6f 76 65 54 6f |........|..MoveTo|
|00001000| 28 6f 75 74 52 65 63 74 | 2e 6c 65 66 74 20 2b 20 |(outRect|.left + |
|00001010| 33 2c 20 6f 75 74 52 65 | 63 74 2e 74 6f 70 20 2b |3, outRe|ct.top +|
|00001020| 20 37 33 29 3b 0d 09 09 | 09 09 09 09 09 09 09 09 | 73);...|........|
|00001030| 57 72 69 74 65 44 72 61 | 77 28 27 4d 69 6e 69 6d |WriteDra|w('Minim|
|00001040| 75 6d 20 65 78 65 63 75 | 74 69 6f 6e 20 74 69 6d |um execu|tion tim|
|00001050| 65 3a 20 27 2c 20 4d 49 | 4e 20 3a 20 38 20 3a 20 |e: ', MI|N : 8 : |
|00001060| 31 29 3b 0d 09 09 09 09 | 09 09 09 09 09 09 4d 6f |1);.....|......Mo|
|00001070| 76 65 54 6f 28 6f 75 74 | 52 65 63 74 2e 6c 65 66 |veTo(out|Rect.lef|
|00001080| 74 20 2b 20 33 2c 20 6f | 75 74 52 65 63 74 2e 74 |t + 3, o|utRect.t|
|00001090| 6f 70 20 2b 20 38 33 29 | 3b 0d 09 09 09 09 09 09 |op + 83)|;.......|
|000010a0| 09 09 09 09 57 72 69 74 | 65 44 72 61 77 28 27 4d |....Writ|eDraw('M|
|000010b0| 61 78 69 6d 75 6d 20 65 | 78 65 63 75 74 69 6f 6e |aximum e|xecution|
|000010c0| 20 74 69 6d 65 3a 20 27 | 2c 20 4d 41 58 20 3a 20 | time: '|, MAX : |
|000010d0| 38 20 3a 20 31 29 3b 0d | 09 09 09 09 09 09 09 09 |8 : 1);.|........|
|000010e0| 09 09 4d 6f 76 65 54 6f | 28 6f 75 74 52 65 63 74 |..MoveTo|(outRect|
|000010f0| 2e 6c 65 66 74 20 2b 20 | 33 2c 20 6f 75 74 52 65 |.left + |3, outRe|
|00001100| 63 74 2e 74 6f 70 20 2b | 20 39 33 29 3b 0d 09 09 |ct.top +| 93);...|
|00001110| 09 09 09 09 09 09 09 09 | 57 72 69 74 65 44 72 61 |........|WriteDra|
|00001120| 77 28 27 41 76 65 72 61 | 67 65 20 45 78 65 63 75 |w('Avera|ge Execu|
|00001130| 74 69 6f 6e 20 54 69 6d | 65 3a 20 27 2c 20 41 56 |tion Tim|e: ', AV|
|00001140| 47 20 3a 20 38 20 3a 20 | 31 29 3b 0d 09 09 09 09 |G : 8 : |1);.....|
|00001150| 09 7b 24 45 4e 44 43 7d | 0d 09 09 09 09 09 09 09 |.{$ENDC}|........|
|00001160| 09 09 09 48 69 6c 69 74 | 65 43 6f 6e 74 72 6f 6c |...Hilit|eControl|
|00001170| 28 53 69 65 76 65 5f 43 | 74 72 6c 2c 20 30 29 3b |(Sieve_C|trl, 0);|
|00001180| 0d 09 09 09 09 09 09 09 | 09 09 09 48 69 6c 69 74 |........|...Hilit|
|00001190| 65 43 6f 6e 74 72 6f 6c | 28 57 68 65 74 5f 43 74 |eControl|(Whet_Ct|
|000011a0| 72 6c 2c 20 30 29 3b 0d | 09 09 09 09 09 09 09 09 |rl, 0);.|........|
|000011b0| 09 09 48 69 6c 69 74 65 | 43 6f 6e 74 72 6f 6c 28 |..Hilite|Control(|
|000011c0| 51 75 69 74 5f 43 74 72 | 6c 2c 20 30 29 3b 0d 09 |Quit_Ctr|l, 0);..|
|000011d0| 09 09 09 09 09 09 09 09 | 09 53 79 73 42 65 65 70 |........|.SysBeep|
|000011e0| 28 31 29 3b 0d 09 09 09 | 09 09 09 09 09 09 65 6e |(1);....|......en|
|000011f0| 64 3b 0d 09 09 09 09 09 | 09 09 09 69 66 20 28 74 |d;......|...if (t|
|00001200| 68 65 63 6f 6e 74 72 6f | 6c 20 3d 20 57 68 65 74 |hecontro|l = Whet|
|00001210| 5f 43 74 72 6c 29 20 74 | 68 65 6e 0d 09 09 09 09 |_Ctrl) t|hen.....|
|00001220| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00001230| 09 09 09 09 09 48 69 6c | 69 74 65 43 6f 6e 74 72 |.....Hil|iteContr|
|00001240| 6f 6c 28 53 69 65 76 65 | 5f 43 74 72 6c 2c 20 44 |ol(Sieve|_Ctrl, D|
|00001250| 69 73 61 62 6c 65 29 3b | 0d 09 09 09 09 09 09 09 |isable);|........|
|00001260| 09 09 09 48 69 6c 69 74 | 65 43 6f 6e 74 72 6f 6c |...Hilit|eControl|
|00001270| 28 44 68 72 79 5f 43 74 | 72 6c 2c 20 44 69 73 61 |(Dhry_Ct|rl, Disa|
|00001280| 62 6c 65 29 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |ble);...|........|
|00001290| 48 69 6c 69 74 65 43 6f | 6e 74 72 6f 6c 28 51 75 |HiliteCo|ntrol(Qu|
|000012a0| 69 74 5f 43 74 72 6c 2c | 20 44 69 73 61 62 6c 65 |it_Ctrl,| Disable|
|000012b0| 29 3b 0d 09 09 09 09 09 | 09 09 09 09 09 77 68 65 |);......|.....whe|
|000012c0| 74 73 20 3a 3d 20 64 6f | 57 68 65 74 73 74 6f 6e |ts := do|Whetston|
|000012d0| 65 3b 0d 09 09 09 09 09 | 09 09 09 09 09 44 72 61 |e;......|.....Dra|
|000012e0| 77 53 74 72 69 6e 67 28 | 27 57 68 65 74 73 74 6f |wString(|'Whetsto|
|000012f0| 6e 65 20 42 65 6e 63 68 | 6d 61 72 6b 20 27 29 3b |ne Bench|mark ');|
|00001300| 0d 09 09 09 09 09 09 09 | 09 09 09 4d 6f 76 65 54 |........|...MoveT|
|00001310| 6f 28 6f 75 74 52 65 63 | 74 2e 6c 65 66 74 20 2b |o(outRec|t.left +|
|00001320| 20 33 2c 20 6f 75 74 52 | 65 63 74 2e 74 6f 70 20 | 3, outR|ect.top |
|00001330| 2b 20 33 33 29 3b 0d 09 | 09 09 09 09 7b 24 49 46 |+ 33);..|....{$IF|
|00001340| 43 20 55 4e 44 45 46 49 | 4e 45 44 20 54 48 49 4e |C UNDEFI|NED THIN|
|00001350| 4b 5f 50 41 53 43 41 4c | 7d 0d 09 09 09 09 09 09 |K_PASCAL|}.......|
|00001360| 09 09 09 09 57 72 69 74 | 65 28 77 68 65 74 73 20 |....Writ|e(whets |
|00001370| 3a 20 39 20 3a 20 33 2c | 20 27 20 20 31 30 30 30 |: 9 : 3,| '  1000|
|00001380| 73 20 6f 66 20 57 68 65 | 74 73 74 6f 6e 65 73 20 |s of Whe|tstones |
|00001390| 70 65 72 20 73 65 63 6f | 6e 64 20 27 29 3b 0d 09 |per seco|nd ');..|
|000013a0| 09 09 09 09 7b 24 45 4c | 53 45 43 7d 0d 09 09 09 |....{$EL|SEC}....|
|000013b0| 09 09 09 09 09 09 09 57 | 72 69 74 65 44 72 61 77 |.......W|riteDraw|
|000013c0| 28 77 68 65 74 73 20 3a | 20 39 20 3a 20 33 2c 20 |(whets :| 9 : 3, |
|000013d0| 27 20 20 31 30 30 30 73 | 20 6f 66 20 57 68 65 74 |'  1000s| of Whet|
|000013e0| 73 74 6f 6e 65 73 20 70 | 65 72 20 73 65 63 6f 6e |stones p|er secon|
|000013f0| 64 20 27 29 3b 0d 09 09 | 09 09 09 7b 24 45 4e 44 |d ');...|...{$END|
|00001400| 43 7d 0d 09 09 09 09 09 | 09 09 09 09 09 48 69 6c |C}......|.....Hil|
|00001410| 69 74 65 43 6f 6e 74 72 | 6f 6c 28 53 69 65 76 65 |iteContr|ol(Sieve|
|00001420| 5f 43 74 72 6c 2c 20 30 | 29 3b 0d 09 09 09 09 09 |_Ctrl, 0|);......|
|00001430| 09 09 09 09 09 48 69 6c | 69 74 65 43 6f 6e 74 72 |.....Hil|iteContr|
|00001440| 6f 6c 28 44 68 72 79 5f | 43 74 72 6c 2c 20 30 29 |ol(Dhry_|Ctrl, 0)|
|00001450| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 48 69 6c 69 |;.......|....Hili|
|00001460| 74 65 43 6f 6e 74 72 6f | 6c 28 51 75 69 74 5f 43 |teContro|l(Quit_C|
|00001470| 74 72 6c 2c 20 30 29 3b | 0d 09 09 09 09 09 09 09 |trl, 0);|........|
|00001480| 09 09 09 53 79 73 42 65 | 65 70 28 31 29 3b 0d 09 |...SysBe|ep(1);..|
|00001490| 09 09 09 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |........|end;....|
|000014a0| 09 09 09 09 09 69 66 20 | 28 74 68 65 63 6f 6e 74 |.....if |(thecont|
|000014b0| 72 6f 6c 20 3d 20 51 75 | 69 74 5f 43 74 72 6c 29 |rol = Qu|it_Ctrl)|
|000014c0| 20 74 68 65 6e 0d 09 09 | 09 09 09 09 09 09 09 48 | then...|.......H|
|000014d0| 61 6e 64 6c 65 4d 6f 75 | 73 65 44 6f 77 6e 20 3a |andleMou|seDown :|
|000014e0| 3d 20 31 3b 0d 0d 09 09 | 09 09 09 09 09 09 49 6e |= 1;....|......In|
|000014f0| 73 65 74 52 65 63 74 28 | 6f 75 74 52 65 63 74 2c |setRect(|outRect,|
|00001500| 20 2d 33 2c 20 2d 33 29 | 3b 0d 09 09 09 09 09 09 | -3, -3)|;.......|
|00001510| 09 09 53 65 74 43 54 69 | 74 6c 65 28 74 68 65 63 |..SetCTi|tle(thec|
|00001520| 6f 6e 74 72 6f 6c 2c 20 | 54 65 6d 70 53 74 72 29 |ontrol, |TempStr)|
|00001530| 3b 0d 09 09 09 09 09 09 | 09 09 48 69 6c 69 74 65 |;.......|..Hilite|
|00001540| 43 6f 6e 74 72 6f 6c 28 | 74 68 65 63 6f 6e 74 72 |Control(|thecontr|
|00001550| 6f 6c 2c 20 30 29 3b 0d | 09 09 09 09 09 09 09 65 |ol, 0);.|.......e|
|00001560| 6e 64 3b 0d 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |nd;.....|.end;...|
|00001570| 09 65 6e 64 3b 0d 09 65 | 6e 64 3b 0d 0d 62 65 67 |.end;..e|nd;..beg|
|00001580| 69 6e 0d 09 49 6e 69 74 | 47 72 61 66 28 40 74 68 |in..Init|Graf(@th|
|00001590| 65 50 6f 72 74 29 3b 0d | 09 49 6e 69 74 46 6f 6e |ePort);.|.InitFon|
|000015a0| 74 73 3b 0d 09 49 6e 69 | 74 57 69 6e 64 6f 77 73 |ts;..Ini|tWindows|
|000015b0| 3b 0d 09 49 6e 69 74 4d | 65 6e 75 73 3b 0d 09 54 |;..InitM|enus;..T|
|000015c0| 45 49 6e 69 74 3b 0d 09 | 49 6e 69 74 44 69 61 6c |EInit;..|InitDial|
|000015d0| 6f 67 73 28 6e 69 6c 29 | 3b 0d 09 49 6e 69 74 43 |ogs(nil)|;..InitC|
|000015e0| 75 72 73 6f 72 3b 0d 09 | 46 6c 75 73 68 45 76 65 |ursor;..|FlushEve|
|000015f0| 6e 74 73 28 65 76 65 72 | 79 45 76 65 6e 74 2c 20 |nts(ever|yEvent, |
|00001600| 30 29 3b 0d 0d 09 53 65 | 74 55 70 57 69 6e 64 6f |0);...Se|tUpWindo|
|00001610| 77 3b 0d 0d 09 72 65 70 | 65 61 74 0d 09 09 69 66 |w;...rep|eat...if|
|00001620| 20 28 47 65 74 4e 65 78 | 74 45 76 65 6e 74 28 65 | (GetNex|tEvent(e|
|00001630| 76 65 72 79 45 76 65 6e | 74 2c 20 65 76 65 6e 74 |veryEven|t, event|
|00001640| 29 29 20 74 68 65 6e 0d | 09 09 09 63 61 73 65 20 |)) then.|...case |
|00001650| 65 76 65 6e 74 2e 77 68 | 61 74 20 6f 66 0d 09 09 |event.wh|at of...|
|00001660| 09 09 6d 6f 75 73 65 64 | 6f 77 6e 3a 20 0d 09 09 |..moused|own: ...|
|00001670| 09 09 09 64 6f 6e 65 20 | 3a 3d 20 48 61 6e 64 6c |...done |:= Handl|
|00001680| 65 4d 6f 75 73 65 44 6f | 77 6e 3b 0d 09 09 09 09 |eMouseDo|wn;.....|
|00001690| 6f 74 68 65 72 77 69 73 | 65 0d 09 09 09 09 09 3b |otherwis|e......;|
|000016a0| 0d 09 09 09 65 6e 64 3b | 09 09 7b 20 63 61 73 65 |....end;|..{ case|
|000016b0| 20 7d 0d 09 75 6e 74 69 | 6c 20 64 6f 6e 65 20 3d | }..unti|l done =|
|000016c0| 20 31 3b 0d 0d 09 44 69 | 73 70 6f 73 65 43 6f 6e | 1;...Di|sposeCon|
|000016d0| 74 72 6f 6c 28 53 69 65 | 76 65 5f 43 74 72 6c 29 |trol(Sie|ve_Ctrl)|
|000016e0| 3b 0d 09 44 69 73 70 6f | 73 65 43 6f 6e 74 72 6f |;..Dispo|seContro|
|000016f0| 6c 28 44 68 72 79 5f 43 | 74 72 6c 29 3b 0d 09 44 |l(Dhry_C|trl);..D|
|00001700| 69 73 70 6f 73 65 43 6f | 6e 74 72 6f 6c 28 57 68 |isposeCo|ntrol(Wh|
|00001710| 65 74 5f 43 74 72 6c 29 | 3b 0d 09 44 69 73 70 6f |et_Ctrl)|;..Dispo|
|00001720| 73 65 43 6f 6e 74 72 6f | 6c 28 51 75 69 74 5f 43 |seContro|l(Quit_C|
|00001730| 74 72 6c 29 3b 0d 09 44 | 69 73 70 6f 73 65 57 69 |trl);..D|isposeWi|
|00001740| 6e 64 6f 77 28 6d 79 77 | 69 6e 64 6f 77 29 3b 0d |ndow(myw|indow);.|
|00001750| 65 6e 64 2e 00 00 00 00 | 00 00 00 00 00 00 00 00 |end.....|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001790| 69 74 4d 65 6e 75 73 3b | 0d 09 54 45 49 6e 69 74 |itMenus;|..TEInit|
|000017a0| 3b 0d 09 49 6e 69 74 44 | 69 61 6c 6f 67 73 28 6e |;..InitD|ialogs(n|
|000017b0| 07 62 65 6e 63 68 2e 70 | 02 00 00 00 54 45 58 54 |.bench.p|....TEXT|
|000017c0| 50 4a 4d 4d 00 00 00 0b | 00 40 00 00 00 00 05 ff |PJMM....|.@......|
|000017d0| 00 00 54 45 58 54 50 4a | 4d 4d 00 00 00 0b 00 40 |..TEXTPJ|MM.....@|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 05 fd 9f d2 60 d9 00 00 | 16 d4 00 00 01 7e 65 74 |....`...|.....~et|
|00001800| 4e 65 78 74 45 76 65 6e | 74 28 65 76 65 72 79 45 |NextEven|t(everyE|
|00001810| 76 65 6e 74 2c 20 65 76 | 65 6e 74 29 29 20 74 68 |vent, ev|ent)) th|
|00001820| 65 6e 0d 09 09 09 63 61 | 73 65 20 65 76 65 6e 74 |en....ca|se event|
|00001830| 2e 77 68 61 74 20 6f 66 | 0d 09 09 09 09 6d 6f 75 |.what of|.....mou|
|00001840| 73 65 64 6f 77 6e 3a 20 | 0d 09 09 09 09 09 64 6f |sedown: |......do|
|00001850| 6e 65 20 3a 3d 20 48 61 | 6e 64 6c 65 4d 6f 75 73 |ne := Ha|ndleMous|
|00001860| 65 44 6f 77 6e 3b 0d 09 | 09 09 09 6f 74 68 65 72 |eDown;..|...other|
|00001870| 77 69 73 65 0d 09 09 09 | 09 09 3b 0d 09 09 09 65 |wise....|..;....e|
|00001880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 01 03 22 |...H..Mo|naco..."|
|00001890| 00 01 00 00 11 af 00 00 | 00 00 00 03 9c 7c 00 00 |........|.....|..|
|000018a0| 00 f0 00 00 00 00 00 06 | 00 03 00 40 00 0c 01 4e |........|...@...N|
|000018b0| 01 f8 00 40 00 0c 01 4e | 01 f8 9f e2 bd 7c 00 00 |...@...N|.....|..|
|000018c0| 04 61 00 00 04 61 00 00 | 03 59 01 00 00 00 01 00 |.a...a..|.Y......|
|000018d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 02 83 7c |...L...L|...2...||
|000018e0| 03 50 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.P.....2|..MPSR..|
|000018f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 03 85 9a 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+